home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macToolConst.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  6.9 KB  |  331 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MacToolConst.sim
  3. % 
  4. % Part of the interface to Macintosh Toolbox
  5. % This file contains the constant definitions from ToolIntf.p
  6. % and some of the constants in OSintf.p.
  7. % It is used as parameters to Toolbox routines of most "Tools".
  8. %
  9. % 890409/Boris Magnusson
  10. % Note: Is there a need to split this file in parts ?
  11. % ---------------------------------------------------------------------------
  12. class macToolConst;
  13. begin
  14. ! -- Thise comes from OSIntf.p ------------ ;
  15. short integer 
  16. !for Event Manager;
  17. everyEvent = -1,
  18. NullEvent = 0,
  19. mouseDown = 1,
  20. mouseUp = 2,
  21. keyDown = 3,
  22. keyUp = 4,
  23. autoKey = 5,
  24. updateEvt = 6,
  25. diskEvt = 7,
  26. activateEvt = 8,
  27. networkEvt = 10,
  28. driverEvt = 11,
  29. app1Evt = 12,
  30. app2Evt = 13,
  31. app3Evt = 14,
  32. app4Evt = 15,
  33.  
  34. ! event mask equates ;
  35. mDownMask = 2,
  36. mUpMask = 4,
  37. keyDownMask = 8,
  38. keyUpMask = 16,
  39. autoKeyMask = 32,
  40. updateMask = 64,
  41. diskMask = 128,
  42. activMask = 256,
  43. networkMask = 1024,
  44. driverMask = 2048,
  45. app1Mask = 4096,
  46. app2Mask = 8192,
  47. app3Mask = 16384,
  48. app4Mask = -32768;
  49.  
  50. !to decipher event message for keyDown events;
  51. integer 
  52. charCodeMask = 16RFF,     !$000000FF;
  53. keyCodeMask =  16RFF00,   !$0000FF00;
  54. adbAddrMask =  16RFF0000; !$00FF0000;
  55.  
  56. ! modifiers ;
  57. short integer 
  58. controlKey = 4096, ! Bit 4 of high byte ;
  59. optionKey  = 2048, ! Bit 3 of high byte ;
  60. alphaLock  = 1024, ! Bit 2 ;
  61. shiftKey   = 512,  ! Bit 1 ;
  62. cmdKey     = 256,  ! Bit 0 ;
  63. btnState   = 128,  ! Bit 7 of low byte is mouse button state ;
  64.  
  65. activeFlag = 1, ! bit 0 of modifiers for activate event ;
  66.  
  67. !error for PostEvent;
  68. evtNotEnb = 1;
  69.  
  70. ! --------- These comes from ToolIntf.p ------- ;
  71. Short integer 
  72.  
  73.     commandMark = 16R11, !$11;
  74.     checkMark     = 16R12, !$12;
  75.     diamondMark = 16R13, !$13;
  76.     appleMark     = 16R14, !$14;
  77.  
  78.     systemFont = 0,
  79.     applFont = 1,
  80.     newYork = 2,
  81.     geneva = 3,
  82.     monaco = 4,
  83.     venice = 5,
  84.     london = 6,
  85.     athens = 7,
  86.     sanFran = 8,
  87.     toronto = 9,
  88.     cairo = 11,
  89.     losAngeles = 12,
  90.     times = 20,
  91.     helvetica = 21,
  92.     courier = 22,
  93.     symbol = 23,
  94.     mobile = 24;
  95. Integer 
  96.     propFont     = 16R9000, ! $9000;
  97.     prpFntH         = 16R9001, ! $9001;
  98.     prpFntW         = 16R9002, ! $9002;
  99.     prpFntHW        = 16R9003, ! $9003;
  100.  
  101.     fixedFont     = 16RB000, ! $B000;
  102.     fxdFntH         = 16RB001, ! $B001;
  103.     fxdFntW         = 16RB002, ! $B002;
  104.     fxdFntHW     = 16RB003, ! $B003;
  105.  
  106.     fontWid         = 16RACB0; ! $ACB0;
  107.  
  108.     !for Window Manager;
  109.  
  110.     !window messages;
  111. short integer
  112.     wDraw = 0,
  113.     wHit = 1,
  114.     wCalcRgns = 2,
  115.     wNew = 3,
  116.     wDispose = 4,
  117.     wGrow = 5,
  118.     wDrawGIcon = 6,
  119.  
  120.     !types of windows;
  121.     dialogKind = 2,
  122.     userKind = 8,
  123.  
  124.     !desk pattern resource ID;
  125.     deskPatID = 16,
  126.  
  127.     !window definition PROCEDURE IDs;
  128.     documentProc = 0,
  129.     dBoxProc = 1,
  130.     plainDBox = 2,
  131.     altDBoxProc = 3,
  132.     noGrowDocProc = 4,
  133.     zoomDocProc = 8,
  134.     zoomNoGrow = 12,
  135.     rDocProc = 16,
  136.  
  137.     !FindWindow Result Codes;
  138.     inDesk = 0,
  139.     inMenuBar = 1,
  140.     inSysWindow = 2,
  141.     inContent = 3,
  142.     inDrag = 4,
  143.     inGrow = 5,
  144.     inGoAway = 6,
  145.  
  146.     !new 128K ROM;
  147.     inZoomIn = 7,
  148.     inZoomOut = 8,
  149.  
  150.     !defProc hit test codes;
  151.     wNoHit = 0,
  152.     wInContent = 1,
  153.     wInDrag = 2,
  154.     wInGrow = 3,
  155.     wInGoAway = 4,
  156.  
  157.     !new 128K ROM;
  158.     wInZoomIn = 5,
  159.     wInZoomOut = 6,
  160.  
  161.     !axis constraints for DragGrayRgn call;
  162.     noConstraint = 0,
  163.     hAxisOnly = 1,
  164.     vAxisOnly = 2,
  165.  
  166.     !for TextEdit;
  167.  
  168.     teJustLeft = 0,
  169.     teJustRight = - 1,
  170.     teJustCenter = 1,
  171.     teForceLeft = -2,     !for Arabic fonts, force left justification ;
  172.  
  173.     !for Resource Manager;
  174.  
  175.     !Resource attribute byte;
  176.     resSysHeap         = 64, ! System or application heap? ;
  177.     resPurgeable     = 32, ! Purgeable resource? ;
  178.     resLocked         = 16, ! Load it in locked? ;
  179.     resProtected     = 8,  ! Protected? ;
  180.     resPreload         = 4,  ! Load in on OpenResFile? ;
  181.     resChanged         = 2,  ! Resource changed? ;
  182.  
  183.     mapReadOnly     = 128,! Resource file read-only ;
  184.     mapCompact         = 64, ! Compact resource file ;
  185.     mapChanged         = 32, ! Write map out at update ;
  186.  
  187.     resNotFound     = -192, ! Resource not found ;
  188.     resFNotFound     = -193, ! Resource file not found ;
  189.     addResFailed     = -194, ! AddResource failed ;
  190.     rmvResFailed     = -196, ! RmveResource failed ;
  191.     rmvRefFailed     = -197, ! RmveReference failed ;
  192.     resAttrErr         = -198, ! attribute inconsistent with operation ;
  193.     mapReadErr         = -199, ! map inconsistent with operation ;
  194.  
  195.     !ID's for resources provided in sysResDef;
  196.  
  197.     !standard cursor definitions;
  198.     iBeamCursor = 1, !text selection cursor;
  199.     crossCursor = 2, !for drawing graphics;
  200.     plusCursor = 3,  !for structured selection;
  201.     watchCursor = 4, !for indicating a long delay;
  202.  
  203.     !icons;
  204.     stopIcon = 0,
  205.     noteIcon = 1,
  206.     cautionIcon = 2,
  207.  
  208.     !patterns;
  209.     sysPatListID = 0, !ID of PAT# which contains 38 patterns;
  210.  
  211.     !for Control Manager;
  212.  
  213.     !control messages;
  214.     drawCntl = 0,
  215.     testCntl = 1,
  216.     calcCRgns = 2,
  217.     initCntl = 3,
  218.     dispCntl = 4,
  219.     posCntl = 5,
  220.     thumbCntl = 6,
  221.     dragCntl = 7,
  222.     autoTrack = 8,
  223.  
  224.     !FindControl Result Codes;
  225.     inButton = 10,
  226.     inCheckbox = 11,
  227.     inUpButton = 20,
  228.     inDownButton = 21,
  229.     inPageUp = 22,
  230.     inPageDown = 23,
  231.     inThumb = 129,
  232.  
  233.     !control definition proc ID's;
  234.     pushButProc = 0,
  235.     checkBoxProc = 1,
  236.     radioButProc = 2,
  237.     scrollBarProc = 16,
  238.  
  239.     useWFont = 8,
  240.  
  241.     !for Dialog Manager;
  242.  
  243.     userItem = 0,
  244.     ctrlItem = 4,
  245.     btnCtrl = 0, ! Low two bits specify what kind of control ;
  246.     chkCtrl = 1,
  247.     radCtrl = 2,
  248.     resCtrl = 3,
  249.  
  250.     statText     = 8,   ! Static text ;
  251.     editText     = 16,  ! Editable text ;
  252.     iconItem        = 32,  ! Icon item ;
  253.     picItem         = 64,  ! Picture item ;
  254.     itemDisable = 128, ! Disable item if set ;
  255.  
  256.     ok = 1, ! OK button is first by convention ;
  257.     cancel = 2, ! Cancel button is second by convention ;
  258.  
  259.     !for Menu Manager;
  260.  
  261.     noMark = 0, ! mark symbol for MarkItem ;
  262.     textMenuProc = 0,
  263.  
  264.     ! menu defProc messages ;
  265.     mDrawMsg = 0,
  266.     mChooseMsg = 1,
  267.     mSizeMsg = 2,
  268.  
  269.     !for Scrap Manager;
  270.  
  271.     noScrapErr = - 100, !desk scrap isn't initialized;
  272.     noTypeErr = - 102,
  273.  
  274.     !package manager;
  275.     listMgr = 0, !list manager;
  276.     dskInit = 2, !Disk Initializaton;
  277.     stdFile = 3, !Standard File;
  278.     flPoint = 4, !Floating-Point Arithmetic;
  279.     trFunc  = 5, !Transcendental FUNCTIONs;
  280.     intUtil = 6, !International Utilities;
  281.     bdConv  = 7, !Binary/Decimal Conversion;
  282.  
  283.  
  284. !************** NEW TOOL CONSTANTS ************;                    
  285.  
  286. !Text Edit;
  287.  
  288. doFont    = 1,    ! set font (family) number    ;
  289. doFace    = 2,    ! set character style        ;
  290. doSize    = 4,    ! set type size             ;
  291. doColor     = 8,    ! set color                 ;
  292. doAll        = 15,    ! set all attributes        ;
  293. addSize     = 16,    ! adjust type size            ;
  294.         
  295. !Color Window Manager;
  296.  
  297.     !Window Part Identifiers which correlate color table
  298.         entries with window color table elements;
  299.  
  300. wContentColor    =        0,
  301. wFrameColor     =        1,
  302. wTextColor        =        2,
  303. wHiliteColor    =        3,
  304. wTitleBarColor    =        4,
  305.  
  306. !Color Control Manager;
  307.  
  308.     !Control Part Identifiers which correlate color table
  309.         entries with control color table elements;
  310.  
  311. cFrameColor     =     0,
  312. cBodyColor        =     1,
  313. cTextColor        =     2,
  314. cThumbColor     =     3,
  315.  
  316. !Menu Manager;
  317.  
  318. hMenuCmd        =    16R1B, !$1B;    !itemCmd == $1B ==> hierarchical menu;
  319. hierMenu        =    -1,        !a hierarchical menu - for InsertMenu call;
  320. mPopUpMsg        =    4,        ! menu defProc messages ;
  321. mctAllItems     =    -98,    ! search for all Items for the given ID ;
  322. mctLastIDIndic    =    -99,    ! last color table entry has this in ID field ;
  323.  
  324. ! Menu Manager Errors ;
  325.  
  326. dsMBarNFnd        =    85,
  327. dsHMenuFindErr    =    86
  328. ;
  329.  
  330. end -- Mac Tool Const -- ;
  331.